home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $QUADSCR.ADpro < prev    next >
Text File  |  1993-12-23  |  2KB  |  89 lines
  1. /* ****************************************************************** */
  2. /*               Macro Maker ADPRO AREXX Script                       */
  3. /*                                            */
  4. /*             create 2 pic logo at top                      */
  5. /*                 with custom background               */
  6. /* ****************************************************************** */
  7. trace on
  8. OPTIONS RESULTS
  9. NL = "0A"X
  10.  
  11. call addlib('rexxsupport.library',0,-30,0)
  12. call addlib('rexxmathlib.library',0,-30,0)
  13. call addlib('rexxarplib.library',0,-30,0)
  14.  
  15. Address 'ADPro'
  16. STRING = '"CREATE A QUAD SCREEN ?"'
  17. OKAY2 STRING
  18. IF RC = 0 THEN EXIT
  19. LFORMAT "UNIVERSAL"
  20.  
  21. GETTHEM:
  22.  
  23. GETFILES '"SHIFT & PICK 4 IMAGES"' 'DH1:'
  24.  
  25. NAMES = ADPRO_RESULT
  26.  
  27. IF WORDS(NAMES) ~= 4 THEN GETTHEM
  28.  
  29. DO I = 1 TO 4
  30. LOAD WORD( NAMES,I )
  31. IF RC ~= 0 THEN DO
  32.         OKAY1 'Could Not Load' LFnam
  33.         EXIT
  34.     END
  35. ABS_SCALE  336 200
  36. SFORMAT 'JPEG'
  37. SAVE "RAM:TEMP"||I "RAW" 80
  38.  
  39. END
  40.  
  41. LFORMAT "BACKDROP"
  42. LOAD "X" 752 480 "COLOR" 255 255 255
  43. IF RC ~= 0 THEN DO
  44.      OKAY1 'COULD NOT LOAD BACKDROP'
  45.      EXIT
  46.      END
  47. X = XSIZE
  48.  
  49. LFORMAT 'UNIVERSAL'
  50.  
  51. LOAD "RAM:TEMP1" 25 30 100   
  52. IF RC ~= 0 THEN DO
  53.         OKAY1 'Could Not Load TEMP1'
  54.                EXIT
  55.     END
  56.  
  57. LOAD "RAM:TEMP2" 371 30 100  
  58. IF RC ~= 0 THEN DO
  59.         OKAY1 'Could Not Load TEMP2'
  60.         EXIT
  61.     END
  62.  
  63. LOAD "RAM:TEMP3" 25 240 100  
  64. IF RC ~= 0 THEN DO
  65.         OKAY1 'Could Not Load TEMP3'
  66.         EXIT
  67.     END
  68.  
  69.  
  70. LOAD "RAM:TEMP4" 371 240 100  
  71. IF RC ~= 0 THEN DO
  72.         OKAY1 'Could Not Load TEMP4'
  73.                 EXIT
  74.     END
  75.  
  76. sformat "FRAMESTORE"
  77. GETFILE "'INPUT NAME TO SAVE <###.FS.name>'" 'DH1:FrameStore' '   .FS.'
  78. SFNAM = ADPRO_RESULT
  79. SAVE SFNAM "RAW"
  80. IF RC ~= 0 THEN DO
  81.         OKAY1 'Could Not Save' SFnam
  82.         EXIT
  83.     END
  84. address command 'delete ram:temp1'
  85. address command 'delete ram:temp2'
  86. address command 'delete ram:temp3'
  87. address command 'delete ram:temp4'
  88. EXIT
  89.